home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act8 / 00086.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  409 b   |  19 lines

  1. on exitFrame
  2.   global route, game8level
  3.   mydelay(30)
  4.   set firstroutes to [3, 5, 6, 8]
  5.   set route to (11 * (random(3) - 1)) + getAt(firstroutes, random(4))
  6.   if game8level > 1 then
  7.     repeat while (route = 25) or (route = 28) or (route = 33)
  8.       set route to random(33)
  9.     end repeat
  10.   end if
  11.   go("road" & route)
  12. end
  13.  
  14. on enterFrame
  15.   repeat with xxx = 1 to 48
  16.     puppetSprite(xxx, 0)
  17.   end repeat
  18. end
  19.